home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
octa209s.zip
/
octave-2.09
/
libs
/
kpathsea
/
putenv.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-11-02
|
3KB
|
125 lines
/****************************************************************/
/* */
/* putenv(3) */
/* */
/* Change or add an environment entry */
/* */
/****************************************************************/
/* origination 1987-Oct-7 T. Holm */
/* (slightly modified by karl@cs.umb.edu for kpathsea.) */
/****************************************************************/
/* Modified by Klaus Gebhardt, 1995 */
/* for HAVE_PUTENV and const -- need nothing else. */
#include <kpathsea/c-auto.h>
#ifndef HAVE_PUTENV /* whole file */
#if defined (__EMX__)
int strncmp();
#endif
/*
Path: hoptoad!pacbell!ames!ll-xn!mit-eddie!uw-beaver!ssc-vax!uvicctr!tholm
From: tholm@uvicctr.UUCP (Terrence W. Holm)
Newsgroups: comp.os.minix
Subject: putenv(3)
Message-ID: <395@uvicctr.UUCP>
Date: 5 May 88 06:40:52 GMT
Organization: University of Victoria, Victoria B.C. Canada
EFTH Minix report #2 - May 1988 - putenv(3)
This is an implementation of putenv(3) that we
wrote for Minix. Please consider this a public
domain program.
*/
#define NULL 0
#define PSIZE sizeof(char *)
extern char **environ;
char *strchr();
char *malloc();
/****************************************************************/
/* */
/* int */
/* putenv( entry ) */
/* */
/* The "entry" should follow the form */
/* "NAME=VALUE". This routine will search the */
/* user environment for "NAME" and replace its */
/* value with "VALUE". */
/* */
/* Note that "entry" is not copied, it is used */
/* as the environment entry. This means that it */
/* must not be unallocated or otherwise modifed */
/* by the caller, unless it is replaced by a */
/* subsequent putenv(). */
/* */
/* If the name is not found in the environment, */
/* then a new vector of pointers is allocated, */
/* "entry" is put at the end and the global */
/* variable "environ" is updated. */
/* */
/* This function normally returns 0, but -1 */
/* is returned if it can not allocate enough */
/* space using malloc(3), or "entry" does not */
/* contain a '='. */
/* */
/****************************************************************/
int
putenv( entry )
char *entry;
{
unsigned length;
unsigned size;
char *temp;
char **p;
char **new_environ;
/* Find the length of the "NAME=" */
temp = strchr(entry,'=');
if ( temp == 0 )
return( -1 );
length = (unsigned) (temp - entry + 1);
/* Scan through the environment looking for "NAME=" */
for ( p=environ; *p != 0 ; p++ )
if ( strncmp( entry, *p, length ) == 0 )
{
*p = entry;
return( 0 );
}
/* The name was not found, build a bigger environment */
size = p - environ;
new_environ = (char **) malloc( (size+2)*PSIZE );
if ( new_environ == (char **) NULL )
return( -1 );
memcpy ((char *) new_environ, (const char *) environ, size*PSIZE );
new_environ[size] = entry;
new_environ[size+1] = NULL;
environ = new_environ;
return(0);
}
#endif /* not HAVE_PUTENV */